!---------------------------------------------------------------------
!---------------------------------------------------------------------
!
!  blocking factor
!
!---------------------------------------------------------------------
!---------------------------------------------------------------------

      integer bsize, blkdim
      parameter (bsize = 0, blkdim = bsize)
